f 



SEITF J 

1 HONG MPX FORTRAN *• LIST SFMNT ALLOCATION 

2 * GENERAL AUTOMATION, INC. ALL RIGHTS RESERVED 

3 »#»*##*««#»*«■*•»*#*»•»■«•»**#*«#»«■•»#»««.*»'»•*«•#*»##»*'»*•» 

4 » 

5 * PROGRAM NAME FPH" 23 

6 « 

7 * MODEL NUMBER 8F()23 

8 * 

9 * PURPOSE FORTRAN PHASE-23 

10 * 

11 * PROGRAMMER DICK WALLMANN 

12 * 

13 «««6««»»###«#«««» pEVISION LIST »****### ***■»»«• 

14 » 

15 * nV DATE SCO BY SEASON FOR CHANGE 

16 * - 

17 « 

18 * 1 U/16/7q NOME RPH INITIAL RFLtASE 

19 * 

2\ <nnnnnn>** «■•»•*•#•**#*«••*■&*•»«•* «•#»««•#***# »»#*»###»«.##■»##* 

22 *#*#&«#•»■*#«>*»#»#»##*»*#****#»****#»*#*#»###«*#*#** 

23 *STaTUS-VfRSiON 1» MODIFICATION 

24 * 

25 •FUncTiON/OPERATION- 

26 * * SCANS THE STaTeMENT STRING FOR STftTEMp-NT 

27 * FUNCTION STATEMENTS AN") NUMBERED STATEMENTS. 

28 * * INSERTS THEIR ALLOCATIONS IN THE STATcMpNT 

29 * STR TNG IN To T Hf r SYvibO|_ T AB LE. 

30 * ♦ LISTS THE STATEMENT ALLOCATIONS ON THr 

31 « SYSTEM4S LIST PRINTER IF REQ'JeSIED 

32 * 

33 GENTRY *OTNTS- 

34 * « NEQ - PHASE 23 I s LOADED BY PhaSe ?2 wIa 

35 * THE ROLRX RO^TInE. EXECU f l0w I *= 

36 * BEGUN AT THE LOCATION LABELED NFQ 

37 * 

38 *IMPUT- 

39 » # THE STATEMENT STRING 
4q * * THE SYMBOL TABLE 

41 * * Tmf FORTRAN COMMUNICATIONS A R P A 

42 * 

43 *OUTpUT- 

44 * * THF STATEMENT STRING 

45 * * THE SYMBOL TABLE 

46 # * THE FORTRAN COMMUNICATIONS AREA 

47 » * STATEMENT ALLOCATIONS LISTED ON LIST PRJNTER 

48 # 

49 ^EXTERNAL REFERENCES- 
5q * * SUBPOUTINES- 

51 * ROLRX 

52 * * oThfR eORTRAm PHASES- 

53 « PHASE ]9 OR 30 OR NEITHER 

54 „ 

55 *EXITS- 

56 * * NORMAL- 

57 * PHASE ?4 IS LOADED VIA RO( RA AMD 

58 * CONTROL IS PASSED TO IT, 

59 * « FPRoRS- 



SEITE 



60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 

74 
75 
76 

77 

78 

79 

81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 

93 
94 

95 

96 

97 

98 

99 

100 

101 

102 

103 
104 

;05 
10& 
107 
108 
109 
110 

il l 
112 

113 

11* 
115 
116 
117 

118 
119 



# 



OVEPLAP- 

if overlap was detected prior to thf 
phase entry then fkjt from phase *s 
immediate, no new overlap error cam 

DETECTED IN THE PHASE. 

symtax- 

no syntax errors are detected in thf 

PHASE. 



BE 



*TABLES/WORK AREAS- 



« 

■» 



THE STATEMENT STRING 

THE SYMBOL TABLE 

T> 

Rt> 

0UTPUTTIN6 ARFA, 



rHE SYMBOL lAHLt 

rHE FORTRAN COMMUNICATIONS ARFA 

*t.»F + 120» A 120 WORD MESSAGE BUILDING 



ANn 



#attrirNtfs-n/a 
•notes-none 



■ft 
« 

MEMRY 

PHSI7 

OVERL 

FCOM 

PHNTP 

ROLRX 

AHEA 

PRINT 

SOFS 

EOFS 

SOFST 

SOFNS 

SOFXT 

SOFGT 

EOFST 

COMON 

CSIZE 

ERROR 

«• 

•» 

FNAME 

SURF 
CCrfD 

* 



SYSTEM AND FORTRAN EQUATES 



EOU 

EOU 
EOU 
EOU 
EOU 
EOU 
EOU 
EOU 
ORG 



RSS 

bss 

ftSS 

RSS 
BSS 
RSS 
RSS 

^ss 

RSS 
RSS 



qSS 

RSS 
RSS 

RSS 



MAXIMUM CORF StZf 
MAXIMUM PHASE SIZE 
PHASES 2-29 STaRT 
FORTRAN COMM. TARLE 
PHASE TAbLE 
, ,,.,.r,- - INTERPHASE CALs 
OVERL+3*320*100 PRINT DATA AD^RfSS 

AREA+1 PRINT ENTRANCE 

FCOM FORTRAN CO^m AREA 



4*32o 

MEMRV-PHSIZ 
OVEHL-22 
FCOM-56 
PHNTB-5 



1 

1 

1 
1 



FORTRAN COMMUNICATION ARcA 
START OF STRING 
END OF STRING 
START OF SYMBOL TABlE 
LENGTH OF PROGRAM 
SIZE OF WORK AREA (vAPlFS) 
SIZE OF CONSTANTS AoEA 
END OF SYMBQL TARLE 
RELATIVE ENTRY POINT 
SIZE OF COMMON 
ERROR FLAG 

BIT 15 OVERLAP ERRO^ 
BIT 14 OTHFR ERROR 
PROGRAM NAMF 
2ND WORD PROG NAME 
SUBR (-) OR FONC (♦) 
CONTROL CARD *0RO 
BIT 15 TRANSFER TRACE 
BTT 1* ARITHMETIC TR^CE 
Bl f 13 EXTENDED PRECISION 
BIT 12 LIST SYMBOL' TABLE 
BIT 11 LI ST SUBPROGRAM MAMrS 
BIT 10 LIST SOURCE PROGRAM 
BIT 9 ONE z/ORD INTEGERS 
BIT 8 PUNCH 
BIT 7 NONPROCESS PROGRAM 



SETTE 3 

12Q IOCS 8SS 1 IOCS CQNTRDl CARD W^Rn 

121 * 

122 * SEE PHASE ONE FOR PIT PATTERNS 

123 * 

12* OFCNT RSS 1 DEFIME FILE COUNT 

125 * 

126 LCOMN RSS 2 FO INSKEL COMMON SIZE 

127 * 

128 ICCER BSS 2 IOCS CONTROL CARD ERROR 

129 * 

130 RSS 2 SYSTEM LOADER USE 

131 * 

; 32 « END OF FORTRAN COMMUNICATION 

133 * A R EA 

} 3 5 * THE SWITCHES USED IN PHASE 23 FOLLOW 

j 36 * IF POSITIVE, The SWIT C H IS TRaNSFER 

( 3 7 # IF ZERO* THE SWITCH IS NORMAL N 

}3R * SWiT CH HTEST 

139 * N HEADER NOT PRINTED 

140 * T HEADER ALREADY PRINTED 

141 * 

142 * 

143 Q D G OVERL 

144 NEQ PSC L ENT BRANCH TO IMlflALlZr 

145 WDCNT DC *-* 

146 BUF DC /*0OO ALL E8C BLANKS 
|47 nc /4000 
148 DC /4000 

1*9 DC / 4 000 * 

150 DC /40OO » 

151 DC /4O0O 

152 DC /400O 
|53 DC /4000 
?54 OC /4000 tt 
155 DC /400O 
j56 DC /4000 

157 DC /4000 

158 DC /400 9 * 

159 DC /400O * 

160 DC /4000 * 

161 DC /4OOO * 

162 TExTO DC /E200 S 

163 DC /E300 T 
l"64 oC /C100 A 

165 oc /E 3 «0 T 

166 nc /cSoo E 

i67 OC /D40 M 

168 DC /C500 E 

169 DC 'D500 M 
i70 DC /E300 T 

171 DC /4000 BLANK 

172 [)C ZClOO A 

173 oc /D 3 00 L 

174 c /f)30 L 

175 oC /D 6 00 

176 DC. /C300 C 

177 DC 'C100 A 
17a DO /£300 T 
{79 DC /C900 I 












SElTF 



180 
181 
182 
183 
184 
}85 
186 
187 
188 
f89 

190 
191 

192 
193 

194 
195 
196 

197 
198 

199 
200 

201 
202 
203 
204 
?05 
20& 
207 

208 
209 
210 

211 
212 

213 
214 
2 IS 
216 
217 

218 

219 
220 

221 
222 
223 

22* 
225 

226 

22 7 

228 
229 

2 3 
23) 
?32 
233 

23* 
?35 
236 

237 
238 

239 



or 
nc 
oc 
oc 



/0600 





/Q500 


M 


/E200 


s 


M000 





■it 
«■ 

* 
PRTHD 



ENT 



NOERR 



■» 

M 1 6 






HOVE 
MOVEl 



STn 

ID 

STO 

8SI 

LDX 

SIX 

LDX 

STX 

esi 

LHX 
STX 
STX 

inx 
bSc 

|_DX 
L^ 

b?o 

RSI 
DC 

LHX 

LDX 
STX 

as c 

ORG 



B?C 



AND 
S 

RSc 
STQ 



i.n 

A K, D 
STO 
1.0 
STO 

MOX 

M"X 
MOX 



1 
3 

3 

1 

2 

2 
l 



BLAnjk 



THIS ROUTINE PRINTS THE HEADrR 

STATEMENT ALLOCATIONS 
AND IS THEN WIPED OUT WHEN TmE 
AREA IS CLEARED 



PRIN 



3 papor-7 ld addr of ms*3 area 

l area sto addr im a*ea 

3 one-z ld v'al^e one in acc 

l wqcnt set word count to One 

l print print blank line 

Li TEXTq LD XR3 WITH ADDR OF HFAnER 

L3 AREA STORE ADDR IN AREA 

3 11 LOAD XR3 WITH 11 . 

L3 WQCNT SET WORD COUNT TO ll 

I. PRINT PRINT .STaTfMENT ALi'O r S. 

L3 PTHD 2 LOAD XR3 WITH AN ADoR 

L3 PTHD 1 PUT ADDR IN BRANCH 

L3 BLKPa RUT &ODR HFPE TOO 

L3 ? RESTORE XR3 TO POINTER V A L 

L BLKPA 1 BRANCH TO BLA N K OUT 8UF 

L3 2 SET XR 3 TO POlNTFR vAlUF 

L ERROR CHECK ERROR 

L NOERR**- BR IF NO ERROR Vj'm 

L STOCh PUT A ZERO IN ERROR VIM 

sofs Parameter for phase ?p v x m 

L ROLRX CALI IN PHaSE"28 

26 

IT SOFS PUT STRING ADUR TN yRf VjM 

12 SOFS PUT STRING ADDR IN vRp 

L3 NED PUT POINTER VAL IN mEO 

L M1000 SKIP AROUND THE ORG 

BUF 120 NOT OVERLAYFD FROM MERE ON 

CHECK FOR STATEMENT NUMBER 

T LOAD AN ID WORD 

L ALOC,E BRANCH YES - 81 T 15 ON 

CHECK FOR ARITH STHNT FUNCTN 

3 HFBnn-Z AND FOR STATEMENT In 

3 HD°^-z SUB CODE FDR STMNT fUn, 

L ALOC» - BRANCH IF STMNT FUN. 

3 IDM-Z ELSF STORE niFF, 



MOVE UN^LTEREO 

LD ID WORD AG A IN 

H07FC-Z 3ET NORM 

NORM-Z STORF STATEMENT WD rOtJNT 

LD STRING WORD AMD 

MOVE IT DOrfN 2 WORDS 

1 MOVE XR2 BY 1 
1 MOVF XR1 BY 1 
NORM, -4 DECREMENT Wn COUNT 
MOVEi LOOP BACK UNTIL NORm 
ID ,J l-7 LD MODIFIED ID wORq 



SEHE 



240 
241 
242 
243 
244 

245 
?46 
247 

248 

249 
250 
251 
252 

253 

254 
255 

?5 & 

257 
258 
259 

260 
261 
P62 
2*63 
?64 

265 
266 

?67 

26B 

2 69 
2 7 
271 
272 
?73 
274 
375 
?76 

? 77 

?78 

2' 79 

280 
281 
?82 

283 

284 

285 

286 
287 

288 
289 
290 

2«n 

2^2 
293 

294 

295 
29b 
297 
7 98 
'■99 






ALOC 



■» 
* 



# 
* 



* 

fl- 
it 

■» 






PTHD 



B$c 
MDX 



10 
AND 

STO 
LO 

S 

s 
s 

A 
STO 



1.0 
SLA 
BSC 
LO 



L^ 

STO 

MOX 

LO 

STO 

MHX 



B 5 C 



8SC 

LO 

BSI 

LO 

BSI 

LH 

SLA 

BSI 

LOD 

SLT 

B$i 

LO 

SLA 

F-Si 

LO 
c;LA 



3 ENOIO-Z sua eno card code 
L EXTT, - BRANCH OUT IF EMO CaRn 
MiOOO ELSE LOOP 3 A C* TO 
GET MEXT n WORD 
SYMBOL TABLE ENTRY 

SET 1ST WQ OF STMNT NtjM 
-Z MASK OF BITS 0*1»2»-? 
-Z PUT IT AWAY 

LO ADDR OF SYMBOL TaBi E 

SUB SYMBOL TABLE 

ENTRY 3 

TIMES 

ADJUST FOR BEG OF EwTpY 

STORE ENTRY AUQR HERE 



FIND 

1 
HQ7FF 

STENT 
SOFST 
STENT 
STENT 
STENT 
FOUR- 
STENT 



L 
I 



-Z 
-Z 

-z 

I 

-z 



CHECK IF LIST DESIRED 



L CCWD 

12 
L TKOFF,- 

1 2 

3 L0CC2-Z 



GET 



CONTROL CARD WORD 
PUT BIT 12 IN SIGN 
BRANCH TO TAKE NUM OFF 
ELSE LD ALLOCATION aODR 
STORE IT HFRE 



GET NAME FROM SYM, TABL& 



STENT 

STONA-Z 

STENT»1 

STENT 

STONA-Z 

STENT«-1 



GET C ADDP IN STENT 
PUT IT IN STO^E NAMF 
MOVE POINTFR 
GET \JE*T HALF OF NAm£ 
PUT IT IN STORE NAMF 1 
MOVF POINTFR BACK 



LIST ALLOCATED STATEMENT MJmBfR 



TEST IF GENERATED ST ATE^E^T NhMpER 

GENEP STMT NUMBER HAS NAME 
IF GENERATED STMT NUMRE*t 00 f OT 
PRINT 

3 STONA-Z LD 1ST HAlf.oF NAME 
L TkoFF, - GO r EMQVE IT IF NAMf n 



TEST IF 
L PfcTHD 

3 H4000-Z 

TOPAU 
3 STONA-7 

T0PA 
3 STONA-Z 

6 

TOPA 
3 STONa-Z 

12 

TOPA 

i stona 

" 2 

TOPA 
3 STONA 

8 



HtADER PRINTED 

THIS ADDR IS HEPLACFO 

WITH 7AEA 

BLANK TO PRINI AREA 

GO PUT CHAR IN 0/P aRfA 
STORED NAME 
FIRST CHAR To PRINT ».RfA 

LD STORED MAME AGAIk ! 

shift out fir^>t cha^artfr 
ssecond char to print *rea 
ld all of stored na"e 
shift out ist and 2nd char 
tthird char to print area 
z ld 2nd wd of name 

GET FOURTH CHAR 
FFOURTH CHAR TO PRINT ,,REA 
-Z LD 2ND WD OF NAME 
GET 5TH CHAR 



1- 



SEITE 



300 
301 
302 
303 
30 4 
305 
306 
307 
^08 
3 09 
310 

311 
312 

313 

31* 

315 

316 
317 

3I8 
319 
320 
321 
322 
323 
324 
325 
326 
32 7 
32B 
329 
330 

331 
332 

133 
33* 
335 

336 

337 

33B 
33^ 
34 

341 
34? 
343 
H4 
3 45 

146 

148 

149 

350 
351 
35? 

^53 
354 

3 55 

356 
357 

358 

3 59 



■H- 



•0- 






Or 



TKOFF 



* 



RSI 
PSI 



l^ 

?RA 

RSI 

in 

S a 

rsi 
in 

SPA 

rsi 

L.n 
BSI 
10 
RSI 



in 

5 

R-Sc 



10 
STO 

STO 

1.0 

STO 

rsi 

BSI 



lo 

STO 

L*"> 
S 

MOX 
STO 

MOX 



*ss 
z fOu 

STOMA DC 

OC 
END ID OC 

PAPoR OC 
PAP OC 
LNEND DC 
STOCH OC 
HC000 OC 
H7E00 OC 
H000A OC 
HO 39 DC 
I DM DC 
NORM DC 



TOPA FFIFTH CHAR TO PRINT APEA 

H7E00 IMSEPT EQUALSI^N 

TOPAU TO PRINT AREA UNCHANGED 

CONVERSION OF ADDRESS BEGINS 

3 LOCC?-Z STORfd ALLOCATION 

12 SAVE BITS THRU 3 

TOPAH FTRST CHAR Tn PRINT aRfa 

3 LOCCP-7 LO ALLOCATION AGAIN 

8 SHIFT OUT 3RD 4TH HEX DI 

TOPAH SSECOMO CHAR TO PRINT &RFA 

3 LOCC2-Z RELOAD ALLOCATION 

4 SHIFT OUT 4TH HEX DtGIT 

TOPAH TTHIPD CHAR TO PRINT AREA 

3 LOCC?-Z RELOAD ALLOCATION 

TOPAH FFOURTH CHAR TO PRINT 4 REA 

3 H4000-Z ID ASJ E8C RLA'^K 

TOPAU 30 PRINT IT 

TEST IF PRINT AREA FULL 

If FULL' PRINT A LINE 

3 PAP-Z LOAD PRINT AREA POImTFR 

LMEND END OF LINf AUDR. 

L TKOFF* Z RETURN IF LINE MOT FILLED 



L 
L 

L 
L 



LINE FULL, PPIMT lT 

PAPOR 

PaP 

AREA 

060 

WDCNT 
PRINT 
3LKPA 



LD ADDP OF OUTPUT MfSsAG 
PUT IT IN PRINT aREa POI 

Al 5n TiM ADC* 



GE 
NT 



ALSO IN AREA 
LD CONSTANT 



SET rfOHD COUNT TO 60 
GO PRINT MESSAGE 
BGO BLANK PRINT AREA. 



TEST IF END OF PAGE 

2 LOAD SYMBOL T^BLF EmToY 

STENT PUT IT IN STENT 

LOAO ID WORD 

EIGHT-Z REDUCE NORM B* 2 WOr>DS 

2 MOVE 

STORE ID WORD ? WD MlGHER 

MOVE GO MOVE STRING 



CONSTANTS, TEMP STORAGE 
E MAKE I COUNTED EVEN 



STORED NAME ^ORo OmE 
WORD T'-'O 
END STMNiT ID 



/1000-/D000 

BUF MSG BUFFER AD^R 

8UF PRINT AREA POINTER 

BUF+60 TEST VALUE FO* END nF LINE 

STORED CHARACTER 

/C000 FOR TURNING BITS 0»T ON 

/7E0O AN E3C EQUAL SIGN 

/OOOA A HEX TEN FOR EBClNo 

^0039 A HEX 39 FOR tBCING 

»-* PARTIAL ID W0«0 

«-» STATEMENT WORD COUNT 



SETTF 



360 
361 
362 
363 

36* 

36$ 
366 

367 
368 
369 

37!i 
3 71 
372 
3 73 
n74 

375 
176 

377 

378 

379 

38 

381 
38? 
383 
384 
185 
386 
387 
388 
389 
390 
391 

392 
393 
394 
.395 

3 96 
397 
398 
399 

4 00 
4OI 
4O? 
403 
4Q 4 

^0 b 
i 6 

4q7 

408 

4 09 

410 
411 
412 
413 
414 

415 

416 
4l7 
*1» 

419 



STENT 

L0CC2 

EIGHT 

ONE 

HF80Q 

HD000 

H07FC 

H07FF 
FOUR 

H4000 

H3F00 

HOOOF 

06 

* 

TOPAlJ 
TOP AX 



it 
# 
TOPA 



topaT 



T0PA2 
TOPAH 



00 
oc 
oc 
oc 
oc 
nc 
oc 

DC 

oc 
oc 
oc 

DC 
DC 



OC 
STO 

10 

STO 
MDX 
8SC 



DC 

AMD 

RSC 



go 

STO 

LO 

STO 

MOX 

LO 

MOX 



OC 

AMD 

S 

RSC 

A 

A 

SLA 

MSI 

esc 



#.* SYMBOL TA8LF ENTRY 

*-* ALLOCATION AO^R 

8 CONSTANT 

1 CONSTANT 

/FROO FOR SETTING 

/dooo id code for STMNT Fun 

/07FC ALL 3ITS OM F^OM 5 TO 13 

/07FF USED TO MASK HITS 0.1, ?«3 

4 CONSTANT 

/4000 EBCDIC BLAMK 

/3F00 USED TO SAVE 

/000F TO SAVE BITS 

6g CONSTANT 



I 
L 
I 



CODF 

SITS 2.THBU 7 
12,13,14.15 



SUBROUTINE 

CHAR IN A-RES TO PRlMT 



AREA UmCHANGE 



STOCH 

STOCH 

PAP 

PAP,] 

TOPAij 



LINK ADDR 40RO 
PUT MSG CHARACTER HFRF 
RELOAD THE CHARACTEo 
PUT IT IN ADO* AT PAP 
MOVE PRINT AREA POINTER 
RRETURN TO CALLING PoInT 



subroutine 

convert char 1h a-reg into 

ebc-code* them move to print 



aRfA 



3 H3F00-7 
. TOPA?, - 



LINK AODR irfnRD 
KEEPS BITS ? ,3,4,5,f,7 
BBR IF ACC ^ a > n Cnl " "' "*• 



HFLD ERC sLaNK 



Tu 

Su 


'AM 
iO>»LD 


Ok 

Aw 


r 

'AY 



NOTE 

IF OTHER SPECIAL CH A R A C r ERS 

BLANK ARE EXPFCTED, TFSTlNG 

BE HERE 

HC000 TURN BITS AND 1 

STOCH PUT EBC CHARACTER 

TOPA MMOVE LINK AOD* WORD 

TOPAU PUT ADOR IN HERE 

TOPAX GO PJT MSG CHAR IN *»Sfi. 

H4000-Z LD AM EBC BLANK 

TOPA1 GO PJT BLANK IN MSG. 

AND RETURN TO CALLING PT. 



SUBROUTINE 

MOVE HEXADEC CHAR 



TO PRINT ARfA 



* 



»-* LINK ADDR tfoRU 

HOOOF KEEP ONLY mJb 1? TwRij 15 

H000A SUBTRACT \q 

Z SSK1P IF ,GT. '^IME 

HO 039 TURN ON BITSlOfll AvD AOD 

ONE-Z ado ONE 

8 SHIFT OUT BITS THRU 7 

TOPA CONVERT AND MOVE 

TOPAH RRETURN TO CALLING Pt, 



SUBROUTINE 



SETTE 



420 


tt 






BLANK T 


421 


# 








422 


blkpa 


nc 




*■-«■ 


423 




l-H 


3 


H^000-Z 


424 




L^X 


3 


-120 


425 


BLKPl 


STO 


13 


BUF+120 


426 




Mnx 


3 


1 


427 




MOX 




8LKP1 


428 




LOX 


L3 


Z 


*29 




RSC 


I 


8LKPA 


430 


# 








431 


* 








432 


EXIT 


STX 


L? 


EUFS 


433 




LD 


3 


pap-z 


4 34 




S 


3 


papor-z 


4 35 




rsc 


L 


EXITl, 


436 




LD 


3 


PAPOR-Z 


<*37 




STO 


L 


AREA 


438 




l.n 


3 


060-Z 


'+39 




STo 


L 


WQCNT 


440 




R^I 


L 


PRINT 


441 


EXIT! 


rSI 


L 


ROLRX 


442 




DC 




24 


44 3 




rss 




OVERL-* 


444 




END 




NErg 



LIMK AOO R */Q R D 
LD AS) EBC BLANK 
SET KP3 TO CHARACTER COUNT 
STORE BLANK 

MOVE CHARACTER COUNTER 
LOOP BACK TO BLANK aGaIN 
RESTORE XR3 TO POINTER VAL 
RRETURN THRU LINK WO»D 



STORE END OF STRING 
LD CURRENT RUF Wp AnDP 
SUR END OF RU*"" AODR 
GO TO EXITl IF SAME 
ELSE PUT B'JF ADDR 
IN AREA 

ld constant of 60 
set */o«d count to ^ 

GO PRINT a BLANK LME 
CALL DOWN PHASE ?4 

NEXT PHASE NUM«EP 
»+320*2 PHASE-?3 PATCH AREA 



